home *** CD-ROM | disk | FTP | other *** search
/ NASA Climatology Interdisciplinary Data Collection / NASA Climatology Interdisciplinary Data Collection - Disc 4.iso / software / grads / lib / functions / curdtgh.gf < prev    next >
Text File  |  1994-02-16  |  334b  |  16 lines
  1. function curdtgh
  2. *
  3. *  convert current time to dtg 
  4. *
  5.   moname='JAN FEB MAR APR MAY JUN JUL AUG SEP OCT NOV DEC'
  6.   'q time'
  7.   t1=subwrd(result,3)
  8.   iyr=substr(t1,11,2)
  9.   nmo=substr(t1,6,3)
  10.   ida=substr(t1,4,2)
  11.   ihr=substr(t1,1,2)
  12.   i=1
  13.   while (nmo!=subwrd(moname,i));i=i+1;endwhile
  14.   imo=i
  15. return (iyr*1000000+imo*10000+ida*100+ihr)
  16.